home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / TUTOR151.ZIP / USENET.MOD (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-06-03  |  21.7 KB  |  584 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     Declare  Function FUNCTION001() String
  27.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     FOpen 1, PPEPath() + "TUTOR.CFG", 0, 0
  31.     FGet 1, STRING001
  32.     FGet 1, STRING002
  33.     FGet 1, STRING004
  34.     FGet 1, STRING003
  35.     FGet 1, STRING005
  36.     FCloseAll
  37.     Select Case (STRING005)
  38.         Case "YES"
  39.             Goto LABEL002
  40.         Case "NO"
  41.     End Select
  42.     :LABEL001
  43.     AnsiPos 1, 4
  44.     PrintLn "@X70│                 @X70│@X01  @X17║@X3B@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  45.     AnsiPos 1, 5
  46.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40┌──────────────────────────────────────────────────@X4C┐@X37@X01░░@X17║@X07"
  47.     AnsiPos 1, 6
  48.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  49.     AnsiPos 1, 7
  50.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  51.     AnsiPos 1, 8
  52.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  53.     AnsiPos 1, 9
  54.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  55.     AnsiPos 1, 10
  56.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│@X4FWe are sorry but, this area of the tutorial is @X4Enot@X4C│@X01░░@X17║@X07"
  57.     AnsiPos 1, 11
  58.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│ @X4Fcurrently available because there are @X4Eno @X4FUSENET  @X4C│@X01░░@X17║@X07"
  59.     AnsiPos 1, 12
  60.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│        @X4Fconferences online at this time.          @X4C│@X01░░@X17║@X07"
  61.     AnsiPos 1, 13
  62.     PrintLn "@X70│                 │@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  63.     AnsiPos 1, 14
  64.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  65.     AnsiPos 1, 15
  66.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  67.     AnsiPos 1, 16
  68.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  69.     AnsiPos 1, 17
  70.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  71.     AnsiPos 1, 18
  72.     PrintLn "@X70│                 @X70│@X0F  @X17║@X01░░@X07@X40│                                                  @X4C│@X01░░@X17║@X07"
  73.     AnsiPos 1, 19
  74.     PrintLn "@X70│                 @X70│@X01  @X17║@X01░░@X40└@X4C──────────────────────────────────────────────────┘@X01░░@X17║@X07"
  75.     AnsiPos 1, 20
  76.     PrintLn "@X70│                 │@X01  @X17║@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  77.     AnsiPos 1, 21
  78.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  79.     AnsiPos 1, 22
  80.     PrintLn "                                                            "
  81.     AnsiPos 1, 22
  82.     Wait
  83.     Goto LABEL007
  84.     :LABEL002
  85.     AnsiPos 1, 4
  86.     PrintLn "@X70│ @X6F @X60(@X6FM@X60)@X67ain Menu @X6F @X78▄ @X70│@X01  @X17║@X02░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  87.     AnsiPos 1, 5
  88.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X09@X02░░@X0A┌──────────────────────────────────────────────────┐@X02░░@X17║@X07"
  89.     AnsiPos 1, 6
  90.     PrintLn "@X70│                 @X70│@X01  @X17║@X09@X02░░@X0A│@X4F                      USENET                      @X0A│@X02░░@X17║@X07"
  91.     AnsiPos 1, 7
  92.     PrintLn "@X70│                 @X70│@X01  @X17║@X09@X02░░@X0A│                                                  @X0A│@X02░░@X17║@X07"
  93.     AnsiPos 1, 8
  94.     PrintLn "@X70│                 @X70│@X01  @X17║@X02░░@X0A│   @X0C[@X0E1@X0C] @X0FWhat is the USENET?                        @X0A│@X02░░@X17║@X07"
  95.     AnsiPos 1, 9
  96.     PrintLn "@X70│                 @X70│@X01  @X17║@X02░░@X0A│   @X0C[@X0E2@X0C] @X0F@X0BUSENET Etiquette @X0F- How to properly use the @X0A│@X02░░@X17║@X07"
  97.     AnsiPos 1, 10
  98.     PrintLn "@X70│                 @X70│@X01  @X17║@X02░░@X0A│       @X0FUSENET NewsGroups                          @X0A│@X02░░@X17║@X07"
  99.     AnsiPos 1, 11
  100.     PrintLn "@X70│                 @X70│@X01  @X17║@X02░░@X0A│   @X0C[@X0E3@X0C] @X0FMessage Symbols                            @X0A│@X02░░@X17║@X07"
  101.     AnsiPos 1, 12
  102.     PrintLn "@X70│                 @X70│@X01  @X17║@X02░░@X0A│                                                  @X0A│@X02░░@X17║@X07"
  103.     AnsiPos 1, 13
  104.     PrintLn "@X70│                 │@X01  @X17║@X02░░@X0A│                                                  @X0A│@X02░░@X17║@X07"
  105.     AnsiPos 1, 14
  106.     PrintLn "@X70│                 @X70│@X01  @X17║@X02░░@X0A│                                                  @X0A│@X02░░@X17║@X07"
  107.     AnsiPos 1, 15
  108.     PrintLn "@X70│                 @X70│@X01  @X17║@X02░░@X0A│                                                  @X0A│@X02░░@X17║@X07"
  109.     AnsiPos 1, 16
  110.     PrintLn "@X70│                 @X70│@X01  @X17║@X02░░@X0A│                                                  @X0A│@X02░░@X17║@X07"
  111.     AnsiPos 1, 17
  112.     PrintLn "@X70│                 @X70│@X01  @X17║@X02░░@X0A│                                                  @X0A│@X02░░@X17║@X07"
  113.     AnsiPos 1, 18
  114.     PrintLn "@X70│                 @X70│@X0F  @X17║@X02░░@X0A│                                                  @X0A│@X02░░@X17║@X07"
  115.     AnsiPos 1, 19
  116.     PrintLn "@X70│                 @X70│@X01  @X17║@X02░░@X0A└──────────────────────────────────────────────────┘@X02░░@X17║@X07"
  117.     AnsiPos 1, 20
  118.     PrintLn "@X70│                 │@X01  @X17║@X0B@X02░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  119.     AnsiPos 1, 21
  120.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  121.     AnsiPos 1, 22
  122.     PrintLn "                                                            "
  123.     AnsiPos 1, 22
  124.     STRING006 = " "
  125.     While (Upper(STRING006) <> "E") Do
  126.         STRING006 = FUNCTION001()
  127.         If (STRING006 == "END") Goto LABEL007
  128.         If (STRING006 == Chr(13)) Goto LABEL006
  129.         If (Upper(STRING006) == "1") Then
  130.             Goto LABEL003
  131.             Continue
  132.         Endif
  133.         If (Upper(STRING006) == "2") Then
  134.             Goto LABEL004
  135.             Continue
  136.         Endif
  137.         If (Upper(STRING006) == "3") Then
  138.             Goto LABEL005
  139.             Continue
  140.         Endif
  141.         If (Upper(STRING006) == "M") Then
  142.             Goto LABEL007
  143.             Continue
  144.         Endif
  145.         If ((Upper(STRING006) == "E") || (Upper(STRING006) == "e")) Then
  146.             Goto LABEL007
  147.         Endif
  148.     EndWhile
  149.     End
  150.  
  151. ;------------------------------------------------------------------------------
  152.  
  153.     Function FUNCTION001() String
  154.  
  155.     While (FUNCTION001 == "") Do
  156.         FUNCTION001 = Inkey()
  157.     EndWhile
  158.  
  159.     EndFunc
  160.  
  161.     :LABEL003
  162.     AnsiPos 1, 4
  163.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A @X0EWHAT IS THE USENET?                                  @X17 ║@X07"
  164.     AnsiPos 1, 5
  165.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  166.     AnsiPos 1, 6
  167.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  168.     AnsiPos 1, 7
  169.     PrintLn "@X17║ @X07│ @X0FThe @X0AUSENET @X0Fis a large collection of computers that share data with each @X07│@X17 ║@X07"
  170.     AnsiPos 1, 8
  171.     PrintLn "@X17║ @X07│ @X0Fother.                                                                  @X07@X07│@X17 ║@X07"
  172.     AnsiPos 1, 9
  173.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  174.     AnsiPos 1, 10
  175.     PrintLn "@X17║ @X07│ @X0FLocated on these computers are over 4,500+ conferences (forums).        @X07│@X17 ║@X07"
  176.     AnsiPos 1, 11
  177.     PrintLn "@X17║ @X07│ @X0FEach conference deals with its own subject and it is important to       @X07│@X17 ║@X07"
  178.     AnsiPos 1, 12
  179.     PrintLn "@X17║ @X07│ @X0Fremember to stick to the conferences topic when leaving e-mail.         @X07│@X17 ║@X07"
  180.     AnsiPos 1, 13
  181.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  182.     AnsiPos 1, 14
  183.     PrintLn "@X17║ @X07│ @X0FMost if not all of the USENET groups expect you to send mail @X0BPUBLICLY@X0F.  @X07│@X17 ║@X07"
  184.     AnsiPos 1, 15
  185.     PrintLn "@X17║ @X07│ @X0FThats, is when you send a message on one of these conferences it should @X07│@X17 ║@X07"
  186.     AnsiPos 1, 16
  187.     PrintLn "@X17║ @X07│ @X0Fbe sent to `@X0BALL@X0F` or an certain person with the meesage security set to  @X07│@X17 ║@X07"
  188.     AnsiPos 1, 17
  189.     PrintLn "@X17║ @X07│ @X0F`@X0BPUBLIC@X0F`. @X0FPrivate mail is @X0Cnot @X0Fallowed in the USENET Newsgroups.         @X07│@X17 ║@X07"
  190.     AnsiPos 1, 18
  191.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  192.     AnsiPos 1, 19
  193.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  194.     AnsiPos 1, 20
  195.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  196.     AnsiPos 1, 21
  197.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  198.     AnsiPos 1, 22
  199.     PrintLn "                                                            "
  200.     AnsiPos 1, 22
  201.     Wait
  202.     Goto LABEL002
  203.     :LABEL004
  204.     AnsiPos 1, 4
  205.     PrintLn "@X0F@X70└─  @X7F 14% Viewed  @X70─┘@X07  @X17║ @X0A @X0EHow To Use The USENET NewsGroups                     @X17 ║@X07"
  206.     AnsiPos 1, 5
  207.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  208.     AnsiPos 1, 6
  209.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  210.     AnsiPos 1, 7
  211.     PrintLn "@X17║ @X07│ @X0FThe easiest way to learn how to use the USENET is to watch others do    @X07│@X17 ║@X07"
  212.     AnsiPos 1, 8
  213.     PrintLn "@X17║ @X07│ @X0Fit.                                                                     @X07@X07│@X17 ║@X07"
  214.     AnsiPos 1, 9
  215.     PrintLn "@X17║ @X07│ @X0ANEVER FORGET THE PERSON ON THE OTHER END.                               @X07│@X17 ║@X07"
  216.     AnsiPos 1, 10
  217.     PrintLn "@X17║ @X07│ @X0FBecause your interacting with a computer it is easy to forget that      @X07│@X17 ║@X07"
  218.     AnsiPos 1, 11
  219.     PrintLn "@X17║ @X07│ @X0Fthere are `other` people out there.  Situations arise were emotions     @X07│@X17 ║@X07"
  220.     AnsiPos 1, 12
  221.     PrintLn "@X17║ @X07│ @X0Ferupt into a verbal free-for-all that can lead to hurt feelings.        @X07│@X17 ║@X07"
  222.     AnsiPos 1, 13
  223.     PrintLn "@X17║ @X07│ @X0FPlease remember that people from all over the world are reading your    @X07│@X17 ║@X07"
  224.     AnsiPos 1, 14
  225.     PrintLn "@X17║ @X07│ @X0Fmessages. Screaming, cursing and abusing others only serves to make     @X07│@X17 ║@X07"
  226.     AnsiPos 1, 15
  227.     PrintLn "@X17║ @X07│ @X0Fpeople think less of you and less willing to help you when you need it. @X07│@X17 ║@X07"
  228.     AnsiPos 1, 16
  229.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  230.     AnsiPos 1, 17
  231.     PrintLn "@X17║ @X07│ @X0ABE CAREFUL ABOUT WHAT YOU SAY ABOUT OTHERS.                             @X07│@X17 ║@X07"
  232.     AnsiPos 1, 18
  233.     PrintLn "@X17║ @X07│ @X0FPlease remember, you read netnews and so do as many as 3 million others.@X07│@X17 ║@X07"
  234.     AnsiPos 1, 19
  235.     PrintLn "@X17║ @X07│ @X0FThis group possibly includes your boss, your buddies, your girlfriends  @X07│@X17 ║@X07"
  236.     AnsiPos 1, 20
  237.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  238.     AnsiPos 1, 21
  239.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  240.     AnsiPos 1, 22
  241.     PrintLn "                                                            "
  242.     AnsiPos 1, 22
  243.     Wait
  244.     AnsiPos 1, 4
  245.     PrintLn "@X0F@X70└─  @X7F 28% Viewed  @X70─┘@X07  @X17║ @X0A @X0EHow To Use The USENET NewsGroups                     @X17 ║@X07"
  246.     AnsiPos 1, 5
  247.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  248.     AnsiPos 1, 6
  249.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  250.     AnsiPos 1, 7
  251.     PrintLn "@X17║ @X07│ @X0Fmother or your parents. These words can come back to haunt you.         @X07│@X17 ║@X07"
  252.     AnsiPos 1, 8
  253.     PrintLn "@X17║ @X07│ @X8CIMPORTANT! @X0F- Think twice before you provide personal information about  @X07@X07│@X17 ║@X07"
  254.     AnsiPos 1, 9
  255.     PrintLn "@X17║ @X07│ @X0Fyourself. @X0CNEVER! @X0Fsupply social security numbers, addresses, or phone    @X07│@X17 ║@X07"
  256.     AnsiPos 1, 10
  257.     PrintLn "@X17║ @X07│ @X0Fnumbers. Remember, all this information is being provided to millions   @X07│@X17 ║@X07"
  258.     AnsiPos 1, 11
  259.     PrintLn "@X17║ @X07│ @X0Fof other people.                                                        @X07│@X17 ║@X07"
  260.     AnsiPos 1, 12
  261.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  262.     AnsiPos 1, 13
  263.     PrintLn "@X17║ @X07│@X0A BE BRIEF                                                                @X07│@X17 ║@X07"
  264.     AnsiPos 1, 14
  265.     PrintLn "@X17║ @X07│ @X0FKeep your messages as brief as possible. Never say in 10 words what you @X07│@X17 ║@X07"
  266.     AnsiPos 1, 15
  267.     PrintLn "@X17║ @X07│ @X0Fcould say in fewer.  Remember, the longer you make your message the     @X07│@X17 ║@X07"
  268.     AnsiPos 1, 16
  269.     PrintLn "@X17║ @X07│ @X0Ffewer people will bother to read it.                                    @X07│@X17 ║@X07"
  270.     AnsiPos 1, 17
  271.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  272.     AnsiPos 1, 18
  273.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  274.     AnsiPos 1, 19
  275.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  276.     AnsiPos 1, 20
  277.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  278.     AnsiPos 1, 21
  279.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  280.     AnsiPos 1, 22
  281.     PrintLn "                                                            "
  282.     AnsiPos 1, 22
  283.     Wait
  284.     AnsiPos 1, 4
  285.     PrintLn "@X0F@X70└─  @X7F 42% Viewed  @X70─┘@X07  @X17║ @X0A @X0EHow To Use The USENET NewsGroups                     @X17 ║@X07"
  286.     AnsiPos 1, 5
  287.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  288.     AnsiPos 1, 6
  289.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  290.     AnsiPos 1, 7
  291.     PrintLn "@X17║ @X07│ @X0AUSE DESCRIPTIVE TITLES                                                  @X07│@X17 ║@X07"
  292.     AnsiPos 1, 8
  293.     PrintLn "@X17║ @X07│@X0F The description lne of an article is there to enable a person with a    @X07@X07│@X17 ║@X07"
  294.     AnsiPos 1, 9
  295.     PrintLn "@X17║ @X07│@X0F limited amount of time to decide whether or not to read your message.   @X07│@X17 ║@X07"
  296.     AnsiPos 1, 10
  297.     PrintLn "@X17║ @X07│@X0F Tell people what the message is about before the read it. A title like  @X07│@X17 ║@X07"
  298.     AnsiPos 1, 11
  299.     PrintLn "@X17║ @X07│@X0F `Computer for Sale` in the alt.misc.computers conference does not help  @X07│@X17 ║@X07"
  300.     AnsiPos 1, 12
  301.     PrintLn "@X17║ @X07│@X0F as much as `486-DX For Sale`.  Don't expect people to read your message @X07│@X17 ║@X07"
  302.     AnsiPos 1, 13
  303.     PrintLn "@X17║ @X07│@X0F to find out what it is about, most people won't bother.                 @X07│@X17 ║@X07"
  304.     AnsiPos 1, 14
  305.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  306.     AnsiPos 1, 15
  307.     PrintLn "@X17║ @X07│ @X0ASTICK TO THE CONFERENCES SUBJECT (THEME)                                @X07│@X17 ║@X07"
  308.     AnsiPos 1, 16
  309.     PrintLn "@X17║ @X07│ @X0FDon't post a message about the computer you have for sale in the        @X07│@X17 ║@X07"
  310.     AnsiPos 1, 17
  311.     PrintLn "@X17║ @X07│ @X0Frec.autos conference. Post it in a conference that deals with the       @X07│@X17 ║@X07"
  312.     AnsiPos 1, 18
  313.     PrintLn "@X17║ @X07│ @X0Fselling and buying of items. This is not only a waste of time but will  @X07│@X17 ║@X07"
  314.     AnsiPos 1, 19
  315.     PrintLn "@X17║ @X07│ @X0Falso upset a lot of people. When you send a message about a certain     @X07│@X17 ║@X07"
  316.     AnsiPos 1, 20
  317.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  318.     AnsiPos 1, 21
  319.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  320.     AnsiPos 1, 22
  321.     PrintLn "                                                            "
  322.     AnsiPos 1, 22
  323.     Wait
  324.     AnsiPos 1, 4
  325.     PrintLn "@X0F@X70└─  @X7F 56% Viewed  @X70─┘@X07  @X17║ @X0A @X0EHow To Use The USENET NewsGroups                     @X17 ║@X07"
  326.     AnsiPos 1, 5
  327.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  328.     AnsiPos 1, 6
  329.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  330.     AnsiPos 1, 7
  331.     PrintLn "@X17║ @X07│ @X0Fsubject be sure you send it to the right conference.  Also, if your     @X07│@X17 ║@X07"
  332.     AnsiPos 1, 8
  333.     PrintLn "@X17║ @X07│ @X0Fmessage has a local context try to post it in a conference that would   @X07@X07│@X17 ║@X07"
  334.     AnsiPos 1, 9
  335.     PrintLn "@X17║ @X07│ @X0Fdeal with the subject on a more local level.                            @X07│@X17 ║@X07"
  336.     AnsiPos 1, 10
  337.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  338.     AnsiPos 1, 11
  339.     PrintLn "@X17║ @X07│ @X0ABE CAREFUL WITH HUMOR AND SARCASM.                                      @X07│@X17 ║@X07"
  340.     AnsiPos 1, 12
  341.     PrintLn "@X17║ @X07│ @X0FWithout actually hearing you speak it is easy for a remark meant to be  @X07│@X17 ║@X07"
  342.     AnsiPos 1, 13
  343.     PrintLn "@X17║ @X07│ @X0Ffunny to be misinterpreted.  To compensate for this there are symbols   @X07│@X17 ║@X07"
  344.     AnsiPos 1, 14
  345.     PrintLn "@X17║ @X07│ @X0Fthat can be used to express the way your feeling and to help convey the @X07│@X17 ║@X07"
  346.     AnsiPos 1, 15
  347.     PrintLn "@X17║ @X07│ @X0Fway you want the message taken.  @X0B(See `@X0DMESSAGE SYMBOLS@X0B` for more info)  @X07│@X17 ║@X07"
  348.     AnsiPos 1, 16
  349.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  350.     AnsiPos 1, 17
  351.     PrintLn "@X17║ @X07│ @X0AONLY POST A MESSAGE ONCE.                                               @X07│@X17 ║@X07"
  352.     AnsiPos 1, 18
  353.     PrintLn "@X17║ @X07│ @X0FSimple enough, only post your message once. It might take some time     @X07│@X17 ║@X07"
  354.     AnsiPos 1, 19
  355.     PrintLn "@X17║ @X07│ @X0Fbefore you receive a reply but posting it again each day is a waste of  @X07│@X17 ║@X07"
  356.     AnsiPos 1, 20
  357.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  358.     AnsiPos 1, 21
  359.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  360.     AnsiPos 1, 22
  361.     PrintLn "                                                            "
  362.     AnsiPos 1, 22
  363.     Wait
  364.     AnsiPos 1, 4
  365.     PrintLn "@X0F@X70└─  @X7F 70% Viewed  @X70─┘@X07  @X17║ @X0A @X0EHow To Use The USENET NewsGroups                     @X17 ║@X07"
  366.     AnsiPos 1, 5
  367.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  368.     AnsiPos 1, 6
  369.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  370.     AnsiPos 1, 7
  371.     PrintLn "@X17║ @X07│ @X0Ftime and annoys alot of people. Would you like to see that same message @X07│@X17 ║@X07"
  372.     AnsiPos 1, 8
  373.     PrintLn "@X17║ @X07│ @X0F25 times in an area?                                                    @X07@X07│@X17 ║@X07"
  374.     AnsiPos 1, 9
  375.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  376.     AnsiPos 1, 10
  377.     PrintLn "@X17║ @X07│ @X0AREPLYING TO MESSAGES                                                    @X07│@X17 ║@X07"
  378.     AnsiPos 1, 11
  379.     PrintLn "@X17║ @X07│ @X0FThis is a sticky area with most members of a conference. Replying to a  @X07│@X17 ║@X07"
  380.     AnsiPos 1, 12
  381.     PrintLn "@X17║ @X07│ @X0Fmessage or `QUOTING` is most of the time overdone. Quoting is when you  @X07│@X17 ║@X07"
  382.     AnsiPos 1, 13
  383.     PrintLn "@X17║ @X07│ @X0Fplace at the beginning of your message some of the remarks made by the  @X07│@X17 ║@X07"
  384.     AnsiPos 1, 14
  385.     PrintLn "@X17║ @X07│ @X0Fperson in his or her message in order to give the person an idea of     @X07│@X17 ║@X07"
  386.     AnsiPos 1, 15
  387.     PrintLn "@X17║ @X07│ @X0Fthe conversation that was talking place. With all the messages you      @X07│@X17 ║@X07"
  388.     AnsiPos 1, 16
  389.     PrintLn "@X17║ @X07│ @X0Fmight receive its a good idea to `quote`, just so you can remember what @X07│@X17 ║@X07"
  390.     AnsiPos 1, 17
  391.     PrintLn "@X17║ @X07│ @X0Fit was that you were discussing.                                        @X07│@X17 ║@X07"
  392.     AnsiPos 1, 18
  393.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  394.     AnsiPos 1, 19
  395.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  396.     AnsiPos 1, 20
  397.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  398.     AnsiPos 1, 21
  399.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  400.     AnsiPos 1, 22
  401.     PrintLn "                                                            "
  402.     AnsiPos 1, 22
  403.     Wait
  404.     AnsiPos 1, 4
  405.     PrintLn "@X0F@X70└─  @X7F 84% Viewed  @X70─┘@X07  @X17║ @X0A @X0EHow To Use The USENET NewsGroups                     @X17 ║@X07"
  406.     AnsiPos 1, 5
  407.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  408.     AnsiPos 1, 6
  409.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  410.     AnsiPos 1, 7
  411.     PrintLn "@X17║ @X07│ @X0F@X0BHeres an example:                                                       @X07│@X17 ║@X07"
  412.     AnsiPos 1, 8
  413.     PrintLn "@X17║ @X07│ @X0F@X20 Date: @SYSDATE@ (13:16)                 Number 148 of 2056             @X0F @X07@X07│@X17 ║@X07"
  414.     AnsiPos 1, 9
  415.     PrintLn "@X17║ @X07│ @X4F To: Janie Smith                                                       @X07 @X07│@X17 ║@X07"
  416.     AnsiPos 1, 10
  417.     PrintLn "@X17║ @X07│ @X1F From: John Smith                                                      @X07 @X07│@X17 ║@X07"
  418.     AnsiPos 1, 11
  419.     PrintLn "@X17║ @X07│ @X1F Subj: Example of quoting a message                                    @X07 @X07│@X17 ║@X07"
  420.     AnsiPos 1, 12
  421.     PrintLn "@X17║ @X07│ @X1F Read: (N/A)                            Status: PUBLIC MESSAGE         @X07 @X07│@X17 ║@X07"
  422.     AnsiPos 1, 13
  423.     PrintLn "@X17║ @X07│ @X1F Conf: alt.pcboard.tutorial          Read Type: General                @X07 @X07│@X17 ║@X07"
  424.     AnsiPos 1, 14
  425.     PrintLn "@X17║ @X07│ @X8E@X0DQuoting@X8E                                                               @X07│@X17 ║@X07"
  426.     AnsiPos 1, 15
  427.     PrintLn "@X17║ @X07│ -> Can you give me more information on the 486-DX computer you have for @X07│@X17 ║@X07"
  428.     AnsiPos 1, 16
  429.     PrintLn "@X17║ @X07│ -> sale? As to the type of BIOS you have and the size of the MB.        @X07│@X17 ║@X07"
  430.     AnsiPos 1, 17
  431.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  432.     AnsiPos 1, 18
  433.     PrintLn "@X17║ @X07│ Its a AMI BIOS and the motherboard is of the smaller (newer) generation @X07│@X17 ║@X07"
  434.     AnsiPos 1, 19
  435.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  436.     AnsiPos 1, 20
  437.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  438.     AnsiPos 1, 21
  439.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  440.     AnsiPos 1, 22
  441.     PrintLn "                                                            "
  442.     AnsiPos 1, 22
  443.     Wait
  444.     AnsiPos 1, 4
  445.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A @X0EHow To Use The USENET NewsGroups                     @X17 ║@X07"
  446.     AnsiPos 1, 5
  447.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  448.     AnsiPos 1, 6
  449.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  450.     AnsiPos 1, 7
  451.     PrintLn "@X17║ @X07│ @X0ADON'T OVERDUE SIGNATURES                                                @X07│@X17 ║@X07"
  452.     AnsiPos 1, 8
  453.     PrintLn "@X17║ @X07│ @X0FSignatures are nice and many people can have a signature added to there @X07@X07│@X17 ║@X07"
  454.     AnsiPos 1, 9
  455.     PrintLn "@X17║ @X07│ @X0Fmessages automatically by placing it in a file called `HOME/.signature`.@X07│@X17 ║@X07"
  456.     AnsiPos 1, 10
  457.     PrintLn "@X17║ @X07│ @X0FDon't overdue it. Signatures can tell the world something about you but @X07│@X17 ║@X07"
  458.     AnsiPos 1, 11
  459.     PrintLn "@X17║ @X07│ @X0Fkeep them short. A signature that is longer than the message is         @X07│@X17 ║@X07"
  460.     AnsiPos 1, 12
  461.     PrintLn "@X17║ @X07│ @X0Fconsidered to be in bad taste. The main purpose of a signature is to    @X07│@X17 ║@X07"
  462.     AnsiPos 1, 13
  463.     PrintLn "@X17║ @X07│ @X0Fhelp people locate you, not to tell your life story. Every signature    @X07│@X17 ║@X07"
  464.     AnsiPos 1, 14
  465.     PrintLn "@X17║ @X07│ @X0Fshould contain your address (e-mail address) and the place your         @X07│@X17 ║@X07"
  466.     AnsiPos 1, 15
  467.     PrintLn "@X17║ @X07│ @X0Flocated.                                                                @X07│@X17 ║@X07"
  468.     AnsiPos 1, 16
  469.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  470.     AnsiPos 1, 17
  471.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  472.     AnsiPos 1, 18
  473.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  474.     AnsiPos 1, 19
  475.     PrintLn "@X17║ @X07│                                                                   END @X07│@X17 ║@X07"
  476.     AnsiPos 1, 20
  477.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  478.     AnsiPos 1, 21
  479.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  480.     AnsiPos 1, 22
  481.     PrintLn "                                                            "
  482.     AnsiPos 1, 22
  483.     Wait
  484.     Goto LABEL002
  485.     :LABEL005
  486.     AnsiPos 1, 4
  487.     PrintLn "@X0F@X70└─  @X7F100% Viewed  @X70─┘@X07  @X17║ @X0A @X0EMessage Symbols                                      @X17 ║@X07"
  488.     AnsiPos 1, 5
  489.     PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
  490.     AnsiPos 1, 6
  491.     PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
  492.     AnsiPos 1, 7
  493.     PrintLn "@X17║ @X07│ @X0FThe following symbols are used in a message to help convey a certain    @X07│@X17 ║@X07"
  494.     AnsiPos 1, 8
  495.     PrintLn "@X17║ @X07│ @X0Ffeeling to a message.                                                   @X07@X07│@X17 ║@X07"
  496.     AnsiPos 1, 9
  497.     PrintLn "@X17║ @X07│ @X0DSMILELY FACES @X0C(@X0BTilt your help to the left to view them@X0C)                 @X07│@X17 ║@X07"
  498.     AnsiPos 1, 10
  499.     PrintLn "@X17║ @X07│ @X0F;-)   @X0A[A Wink]                   @X0F:-)  @X0A[ A Smile]                        @X07│@X17 ║@X07"
  500.     AnsiPos 1, 11
  501.     PrintLn "@X17║ @X07│ @X0FO:-)  @X0A[An Angel]                 @X0F:-P  @X0A[Sticking out your tougue]        @X07│@X17 ║@X07"
  502.     AnsiPos 1, 12
  503.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  504.     AnsiPos 1, 13
  505.     PrintLn "@X17║ @X07│ @X0DINITIALS                                                                @X07│@X17 ║@X07"
  506.     AnsiPos 1, 14
  507.     PrintLn "@X17║ @X07│ @X0FLOL   @X0A[Laughing out Loud]        @X0FBRB   @X0A[Be Right Back]                  @X07│@X17 ║@X07"
  508.     AnsiPos 1, 15
  509.     PrintLn "@X17║ @X07│ @X0FTTYL  @X0A[Talk to you later]        @X0FCYA   @X0A[See Ya]                         @X07│@X17 ║@X07"
  510.     AnsiPos 1, 16
  511.     PrintLn "@X17║ @X07│ @X0F<g>   @X0A[Grin]                     @X0Fheheh @X0A[Laugh]                          @X07│@X17 ║@X07"
  512.     AnsiPos 1, 17
  513.     PrintLn "@X17║ @X07│ @X0F                                                                        @X07│@X17 ║@X07"
  514.     AnsiPos 1, 18
  515.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  516.     AnsiPos 1, 19
  517.     PrintLn "@X17║ @X07│                                                                         @X07│@X17 ║@X07"
  518.     AnsiPos 1, 20
  519.     PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
  520.     AnsiPos 1, 21
  521.     PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
  522.     AnsiPos 1, 22
  523.     PrintLn "                                                            "
  524.     AnsiPos 1, 22
  525.     Wait
  526.     Goto LABEL002
  527.     :LABEL006
  528.     AnsiPos 26, 17
  529.     PrintLn "@X0B@X4F   Please @XCEmake your selection @X4Ffrom the catagories @X07"
  530.     AnsiPos 26, 18
  531.     PrintLn "@X0B@X4F               ABOVE or on the LEFT.              @X07"
  532.     Delay 100
  533.     Goto LABEL002
  534.     :LABEL007
  535.  
  536. ;------------------------------------------------------------------------------
  537. ;
  538. ; Usage report (before postprocessing)
  539. ;
  540. ; ■ Statements used :
  541. ;
  542. ;    1       End
  543. ;    10      Wait
  544. ;    30      Goto 
  545. ;    3       Let 
  546. ;    211     PrintLn 
  547. ;    11      If 
  548. ;    1       FOpen 
  549. ;    5       FGet 
  550. ;    1       Delay 
  551. ;    222     AnsiPos 
  552. ;    1       FCloseAll
  553. ;    1       EndFunc
  554. ;
  555. ;
  556. ; ■ Functions used :
  557. ;
  558. ;    1       +
  559. ;    11      ==
  560. ;    1       <>
  561. ;    9       !
  562. ;    1       ||
  563. ;    7       Upper()
  564. ;    1       Chr()
  565. ;    1       Inkey()
  566. ;    1       PPEPath()
  567. ;
  568. ;------------------------------------------------------------------------------
  569. ;
  570. ; Analysis flags : No flag
  571. ;
  572. ;------------------------------------------------------------------------------
  573. ;
  574. ; Postprocessing report
  575. ;
  576. ;    0       For/Next
  577. ;    2       While/EndWhile
  578. ;    5       If/Then or If/Then/Else
  579. ;    1       Select Case
  580. ;
  581. ;------------------------------------------------------------------------------
  582. ;                 AEGiS Corp - Break the routines, code against the machines!
  583. ;------------------------------------------------------------------------------
  584.